home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Present…nuary (Partner) - Disc 2 / The Apple Reference and Presentations Library (Disc 2)(January 1994).iso / Graphisoft / US English / ArchiCAD / ArchiCAD 4.5-68K / ArchiCAD Library / 08 Doors & Windows / Window Macros / oct_window < prev    next >
Text File  |  1994-04-11  |  233b  |  26 lines
  1. ! oct_window   /rewritten 2/22/94/***VL/
  2. shadow on
  3. addy b/2
  4. mulx a/2
  5. muly b/2
  6. z=sqr(2)-1
  7. pen F_
  8. material I_
  9.  
  10. for v=1 to 4
  11. cprism_ G_,H_,I_,
  12. 3,C_,
  13. 1,z,10,
  14. 1,1,8,
  15. z,1,13
  16. add z,1,0
  17. rotx 90
  18. rotz 90
  19. rect C_,2*z
  20. del 3
  21. rotz 90
  22. next v
  23.  
  24. end
  25.  
  26.